home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / simula / books / books.lha / kirkerud / average.sim < prev    next >
Text File  |  1993-08-16  |  679b  |  26 lines
  1.    begin
  2.      integer count; real obs, sum;
  3.      outtext("Type your observations."); outimage;
  4.      outtext("Type 0 after the last!");  outimage;
  5.      count := 0; sum := 0;
  6.      inimage; obs := inreal;
  7.      while obs > 0 do
  8.        begin
  9.          sum   := sum + obs;
  10.          count := count + 1;
  11.          inimage; obs := inreal;
  12.        end;
  13.      if count = 0 then
  14.        begin
  15.          outtext("You did not type any observations!");
  16.          outimage;
  17.        end
  18.      else
  19.        begin
  20.          outtext("Number of observations typed: ");
  21.            outint(count, 5); outimage;
  22.          outtext("Average value: ");
  23.            outfix(sum/count, 3, 10); outimage;
  24.        end;
  25.    end
  26.